Floppyshop 2

home *** CD-ROM | disk | FTP | other *** search

/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-3485 / art-4812 / kozmic_4.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1994-01-04 | 186KB | 3,355 lines

10 REM KOZMIC 4 100 VARNAME 1000 UNKNOWN OP: 0x3A 10000 RETURN 10010 UNKNOWN OP: 0x3A 10020 VARNAME 10030 IF 10040 IF 10050 RETURN 10060 UNKNOWN OP: 0x3A 10070 IF 10080 IF 10090 RETURN 1010 LOCATE 10100 UNKNOWN OP: 0x3A 10110 VARNAME 10120 IF 10130 IF 10140 RETURN 10150 UNKNOWN OP: 0x3A 10160 REM LEFT CLICK TO ALTER STST (STar STyle) 10170 INC 10180 FOR 10190 EXTENSION (Index #3) (Token 0x86) 1020 RESERVE 10200 UNKNOWN OP: 0x3A 10210 REM INFO FOR STARS 10220 GOSUB 10230 FOR 10240 IF 10250 NEXT 10260 MENU$ 10270 MENU 10280 IF 10290 LOCATE 1030 VARNAME 10300 LOCATE 10310 PRINT 10320 PRINT 10330 PRINT 10340 PRINT 10350 PRINT 10360 PRINT 10370 PRINT 10380 PRINT 10390 EXTENSION (Index #3) (Token 0x88) 1040 IF 10400 VARNAME 10410 IF 10420 IF 10430 IF 10440 IF 10450 GOTO 10460 UNKNOWN OP: 0x3A 10470 REM TILES (SPAGHETTI PROGRAMMING) 10480 REM DEFINE LARGEST TILE IN CENTRE 10490 VARNAME 1050 IF 10500 REM DEFINE CO-ORDINATES FOR CENTRE TILE 10510 VARNAME 10520 IF 10530 GOSUB 10540 GOSUB 10550 UNKNOWN OP: 0x3A 10560 REM SHRINK HEIGHT AND REPEAT TO TOP 10570 VARNAME 10580 IF 10590 GOSUB 1060 LOCATE 10600 GOSUB 10610 IF 10620 GOTO 10630 UNKNOWN OP: 0x3A 10640 REM DRAW TILE 10650 GOSUB 10660 VARNAME 10670 IF 10680 IF 10690 IF 1070 REM ** DEFAULT SETTINGS FOR treble, bass, Main volume, L+R volume. 10700 IF 10710 IF 10720 INK 10730 IF 10740 BOX 10750 BOX 10760 IF 10770 BOX 10780 BOX 10790 INC 1080 VARNAME 10800 IF 10810 GOTO 10820 UNKNOWN OP: 0x3A 10830 REM SHRINK WIDTH OF TILE AND REPEAT TO LEFT 10840 VARNAME 10850 GOSUB 10860 IF 10870 GOTO 10880 UNKNOWN OP: 0x3A 10890 REM SET 60 ZONES FOR MENU (REM ZONE 0 NOT ALLOWED) 1090 RESERVE 10900 RESET ZONE 10910 FOR 10920 SET ZONE 10930 NEXT 10940 RETURN 10950 UNKNOWN OP: 0x3A 10960 REM ***** SET START COLOUR FOR PALETTE MODE (PM) ***** 10970 ON 10980 VARNAME 10990 VARNAME 110 VARNAME 1100 BLOAD 11000 VARNAME 11010 VARNAME 11020 VARNAME 11030 VARNAME 11040 UNKNOWN OP: 0x3A 11050 REM ***** STEP THROUGH PALETTE ***** 11060 ON 11070 IF 11080 IF 11090 GOSUB 1110 VARNAME 11100 UNKNOWN OP: 0x3A 11110 INC 11120 GOSUB 11130 UNKNOWN OP: 0x3A 11140 DEC 11150 GOSUB 11160 UNKNOWN OP: 0x3A 11170 INC 11180 GOSUB 11190 UNKNOWN OP: 0x3A 1120 LOCATE 11200 DEC 11210 GOSUB 11220 UNKNOWN OP: 0x3A 11230 IF 11240 IF 11250 GOSUB 11260 UNKNOWN OP: 0x3A 11270 IF 11280 IF 11290 GOSUB 1130 VARNAME 11300 UNKNOWN OP: 0x3A 11310 IF 11320 IF 11330 GOSUB 11340 UNKNOWN OP: 0x3A 11350 IF 11360 IF 11370 GOSUB 11380 UNKNOWN OP: 0x3A 11390 IF 1140 LOCATE 11400 IF 11410 GOSUB 11420 UNKNOWN OP: 0x3A 11430 REM POLYMARKERS 11440 VARNAME 11450 EXTENSION (Index #2) (Token 0x82) 11460 GOSUB 11470 FOR 11480 VARNAME 11490 FOR 1150 VARNAME 11500 VARNAME 11510 VARNAME 11520 FOR 11530 IF 11540 VARNAME 11550 IF 11560 IF 11570 IF 11580 IF 11590 IF 1160 VARNAME 11600 IF 11610 IF 11620 IF 11630 NEXT 11640 IF 11650 NEXT 11660 IF 11670 NEXT 11680 EXTENSION (Index #2) (Token 0x84) 11690 UNKNOWN OP: 0x3A 1170 VARNAME 11700 REM POLYMARKER MENUS 11710 GOSUB 11720 FOR 11730 MENU$ 11740 FOR 11750 MENU$ 11760 FOR 11770 MENU$ 11780 FOR 11790 MENU$ 1180 FOR 11800 FOR 11810 MENU$ 11820 FOR 11830 MENU$ 11840 MENU$ 11850 MENU$ 11860 MENU$ 11870 MENU$ 11880 FOR 11890 MENU 1190 VARNAME 11900 EXTENSION (Index #3) (Token 0x88) 11910 WINDOPEN 11920 GOSUB 11930 VARNAME 11940 IF 11950 IF 11960 IF 11970 IF 11980 IF 11990 IF 120 VARNAME 1200 FOR 12000 IF 12010 IF 12020 IF 12030 IF 12040 IF 12050 WAIT 12060 UNKNOWN OP: 0x3A 12070 UNKNOWN OP: 0x3A 12080 VARNAME 12090 IF 1210 VARNAME 12100 RETURN 12110 UNKNOWN OP: 0x3A 12120 REM PRINT PARAMETERS IN WINDOW 12130 VARNAME 12140 IF 12150 IF 12160 PRINT 12170 PRINT 12180 LOCATE 12190 FOR 1220 IF 12200 PRINT 12210 RETURN 12220 UNKNOWN OP: 0x3A 12230 REM COLOUR CONTROL 12240 GOSUB 12250 MENU$ 12260 FOR 12270 MENU$ 12280 FOR 12290 MENU$ 1230 VARNAME 12300 MENU$ 12310 MENU$ 12320 MENU$ 12330 MENU$ 12340 MENU$ 12350 MENU$ 12360 MENU$ 12370 MENU$ 12380 MENU$ 12390 MENU$ 1240 FOR 12400 MENU$ 12410 MENU$ 12420 MENU$ 12430 MENU$ 12440 MENU 12450 VARNAME 12460 IF 12470 IF 12480 IF 12490 IF 1250 VARNAME 12500 IF 12510 IF 12520 IF 12530 WAIT 12540 UNKNOWN OP: 0x3A 12550 IF 12560 EXTENSION (Index #3) (Token 0x82) 12570 UNKNOWN OP: 0x3A 12580 IF 12590 EXTENSION (Index #3) (Token 0x82) 1260 ROR 12600 UNKNOWN OP: 0x3A 12610 INK 12620 EXTENSION (Index #2) (Token 0x82) 12630 LOCATE 12640 FOR 12650 INK 12660 VARNAME 12670 IF 12680 LOCATE 12690 NEXT 1270 VARNAME 12700 LOCATE 12710 PRINT 12720 PRINT 12730 PRINT 12740 PRINT 12750 PRINT 12760 PRINT 12770 PRINT 12780 PRINT 12790 PRINT 1280 NEXT 12800 PRINT 12810 PRINT 12820 LOCATE 12830 EXTENSION (Index #2) (Token 0x84) 12840 UNKNOWN OP: 0x3A 12850 REM MAIN MERGE ENTRY POINT ###### two screens ###### 12860 VARNAME 12870 HIDE 12880 UNKNOWN OP: 0x3A 12890 REM LINE MERGE 1290 VARNAME 12900 FOR 12910 FOR 12920 NEXT 12930 UNKNOWN OP: 0x3A 12940 REM RECTANGLE MERGE 12950 FOR 12960 FOR 12970 EXTENSION (Index #17) (Token 0x82) 12980 EXTENSION (Index #17) (Token 0x82) 12990 NEXT 130 DIM 1300 VARNAME 13000 NEXT 13010 SCREEN SWAP 13020 NEXT 13030 GOSUB 13040 UNKNOWN OP: 0x3A 13050 REM APPEAR 13060 APPEAR 13070 UNKNOWN OP: 0x3A 13080 REM BITPLANES 13090 VARNAME 1310 VARNAME 13100 GOSUB 13110 VARNAME 13120 IF 13130 IF 13140 GOTO 13150 UNKNOWN OP: 0x3A 13160 EXTENSION (Index #12) (Token 0x80) 13170 IF 13180 IF 13190 FOR 1320 VARNAME 13200 IF 13210 IF 13220 GOSUB 13230 IF 13240 NEXT 13250 IF 13260 RETURN 13270 UNKNOWN OP: 0x3A 13280 REM SELECT MERGE MODE 13290 GOSUB 1330 LOCATE 13300 MENU$ 13310 FOR 13320 MENU$ 13330 MENU 13340 EXTENSION (Index #3) (Token 0x88) 13350 VARNAME 13360 IF 13370 IF 13380 IF 13390 IF 1340 UNKNOWN OP: 0x3A 13400 IF 13410 IF 13420 IF 13430 GOTO 13440 UNKNOWN OP: 0x3A 13450 REM INDICATE MERGE MODE 13460 CLW 13470 PRINT 13480 PRINT 13490 PRINT 1350 GOSUB 13500 PRINT 13510 PRINT 13520 RETURN 13530 UNKNOWN OP: 0x3A 13540 REM MERGE HELP 13550 INVERSE 13560 PRINT 13570 PRINT 13580 PRINT 13590 PRINT 1360 RESERVE 13600 PRINT 13610 PRINT 13620 PRINT 13630 PRINT 13640 PRINT 13650 GOSUB 13660 UNKNOWN OP: 0x3A 13670 REM SHRINKING PIES 13680 GOSUB 13690 MENU$ 1370 UNKNOWN OP: 0x3A 13700 MENU$ 13710 MENU$ 13720 MENU$ 13730 MENU 13740 EXTENSION (Index #3) (Token 0x88) 13750 GOSUB 13760 VARNAME 13770 IF 13780 IF 13790 IF 1380 VARNAME 13800 IF 13810 IF 13820 IF 13830 IF 13840 IF 13850 IF 13860 IF 13870 IF 13880 IF 13890 IF 1390 VARNAME 13900 GOTO 13910 UNKNOWN OP: 0x3A 13920 REM DRAW PIES 13930 GOSUB 13940 FOR 13950 IF 13960 GOSUB 13970 VARNAME 13980 VARNAME 13990 IF 140 VARNAME 1400 EXTENSION (Index #3) (Token 0x82) 14000 VARNAME 14010 EPIE 14020 NEXT 14030 GOSUB 14040 IF 14050 RETURN 14060 UNKNOWN OP: 0x3A 14070 INC 14080 SET PAINT 14090 UNKNOWN OP: 0x3A 1410 UNKNOWN OP: 0x3A 14100 REM PRINT PIE PARAMETERS 14110 CLW 14120 PRINT 14130 PRINT 14140 PRINT 14150 RETURN 14160 UNKNOWN OP: 0x3A 14170 REM DITHERING DOTS 14180 EXTENSION (Index #2) (Token 0x82) 14190 VARNAME 1420 REM APPEAR EFFECT 14200 FOR 14210 FOR 14220 IF 14230 IF 14240 EXTENSION (Index #12) (Token 0x86) 14250 NEXT 14260 NEXT 14270 EXTENSION (Index #2) (Token 0x84) 14280 UNKNOWN OP: 0x3A 14290 REM STIPPLED OVALS 1430 IF 14300 VARNAME 14310 FOR 14320 FOR 14330 SET PAINT 14340 ELLIPSE 14350 VARNAME 14360 NEXT 14370 NEXT 14380 GR WRITING 14390 UNKNOWN OP: 0x3A 1440 FOR 14400 REM EGGS 14410 EXTENSION (Index #2) (Token 0x82) 14420 FOR 14430 GOSUB 14440 FOR 14450 GOSUB 14460 FOR 14470 IF 14480 GOSUB 14490 FOR 1450 EXTENSION (Index #12) (Token 0x8c) 14500 IF 14510 GOSUB 14520 FOR 14530 IF 14540 GOSUB 14550 FOR 14560 IF 14570 IF 14580 GOSUB 14590 FOR 1460 NEXT 14600 IF 14610 IF 14620 GOSUB 14630 FOR 14640 IF 14650 IF 14660 GOSUB 14670 FOR 14680 IF 14690 IF 1470 RETURN 14700 GOSUB 14710 FOR 14720 IF 14730 IF 14740 GOSUB 14750 FOR 14760 IF 14770 IF 14780 EXTENSION (Index #2) (Token 0x84) 14790 UNKNOWN OP: 0x3A 1480 UNKNOWN OP: 0x3A 14800 REM *** EGGS MENU *** 14810 GOSUB 14820 MENU$ 14830 MENU 14840 IF 14850 EXTENSION (Index #3) (Token 0x88) 14860 VARNAME 14870 IF 14880 IF 14890 IF 1490 REM **** MAIN RE-ENTRY POINT **** 14900 IF 14910 IF 14920 IF 14930 GOTO 14940 EXTENSION (Index #3) (Token 0x82) 14950 UNKNOWN OP: 0x3A 14960 REM INDICATE BLOB MODE 14970 LOCATE 14980 LOCATE 14990 RETURN 150 FOR 1500 EXTENSION (Index #2) (Token 0x84) 15000 UNKNOWN OP: 0x3A 15010 REM HELP FOR COLOUR CONTROL 15020 MODE 15030 INK 15040 CENTRE 15050 PRINT 15060 PRINT 15070 PRINT 15080 PRINT 15090 PRINT 1510 REM DISPLAY MENUSCREEN 15100 PRINT 15110 PRINT 15120 PRINT 15130 PRINT 15140 VARNAME 15150 WHILE 15160 WEND 15170 UNKNOWN OP: 0x3A 15180 MODE 15190 INK 1520 EXTENSION (Index #3) (Token 0x82) 15200 CENTRE 15210 PRINT 15220 PRINT 15230 PRINT 15240 PRINT 15250 PRINT 15260 PRINT 15270 PRINT 15280 PRINT 15290 PRINT 1530 EXTENSION (Index #12) (Token 0x80) 15300 PRINT 15310 GOSUB 15320 CENTRE 15330 PRINT 15340 PRINT 15350 PRINT 15360 PRINT 15370 PRINT 15380 PRINT 15390 PRINT 1540 AUTO BACK 15400 PRINT 15410 PRINT 15420 GOSUB 15430 CENTRE 15440 PRINT 15450 PRINT 15460 PRINT 15470 PRINT 15480 PRINT 15490 PEN 1550 X MOUSE 15500 GOSUB 15510 CENTRE 15520 PRINT 15530 PRINT 15540 PRINT 15550 PEN 15560 PRINT 15570 PRINT 15580 PRINT 15590 PEN 1560 REM COLOUR RANGE 15600 PRINT 15610 GOSUB 15620 UNKNOWN OP: 0x3A 15630 MODE 15640 INK 15650 CENTRE 15660 PRINT 15670 PRINT 15680 PRINT 15690 PRINT 1570 IF 15700 PRINT 15710 PRINT 15720 PRINT 15730 PRINT 15740 PRINT 15750 PEN 15760 WHILE 15770 WEND 15780 CENTRE 15790 CENTRE 1580 IF 15800 CENTRE 15810 CENTRE 15820 CENTRE 15830 CENTRE 15840 INVERSE 15850 LOCATE 15860 CENTRE 15870 WAIT 15880 VARNAME 15890 IF 1590 IF 15900 IF 15910 GOTO 15920 UNKNOWN OP: 0x3A 15930 REM REGISTRATION FORM 15940 LPRINT 15950 LPRINT 15960 LPRINT 15970 LPRINT 15980 LPRINT 15990 LPRINT 160 VARNAME 1600 CLEAR KEY 16000 LPRINT 16010 LPRINT 16020 LPRINT 16030 LPRINT 16040 LPRINT 16050 LPRINT 16060 LPRINT 16070 LPRINT 16080 LPRINT 16090 LPRINT 1610 VARNAME 16100 INVERSE 16110 LOCATE 16120 FOR 16130 LOCATE 16140 LOCATE 16150 NEXT 16160 LPRINT 16170 LPRINT 16180 FOR 16190 LPRINT 1620 UNKNOWN OP: 0x3A 16200 CLICK 16210 UNKNOWN OP: 0x3A 16220 MODE 16230 INK 16240 CENTRE 16250 PRINT 16260 PEN 16270 PEN 16280 PRINT 16290 PEN 1630 REM CHECK FOR MOUSE CLICK OR KEYPRESS 16300 PRINT 16310 PEN 16320 PRINT 16330 PRINT 16340 PRINT 16350 PRINT 16360 PRINT 16370 GOSUB 16380 UNKNOWN OP: 0x3A 16390 REM SPIRALS 1640 VARNAME 16400 HIDE 16410 GOSUB 16420 VARNAME 16430 VARNAME 16440 VARNAME 16450 CIRCLE 16460 IF 16470 GOSUB 16480 IF 16490 UNKNOWN OP: 0x3A 1650 UNKNOWN OP: 0x3A 16500 REM SPIRAL MENUS 16510 GOSUB 16520 MENU$ 16530 MENU$ 16540 MENU$ 16550 MENU$ 16560 MENU$ 16570 MENU$ 16580 MENU 16590 EXTENSION (Index #3) (Token 0x88) 1660 ON 16600 GOSUB 16610 VARNAME 16620 IF 16630 IF 16640 IF 16650 IF 16660 IF 16670 IF 16680 IF 16690 IF 1670 IF 16700 IF 16710 IF 16720 IF 16730 IF 16740 IF 16750 IF 16760 IF 16770 IF 16780 GOTO 16790 UNKNOWN OP: 0x3A 1680 IF 16800 REM SET WITH MOUSE 16810 LIMIT MOUSE 16820 GR WRITING 16830 VARNAME 16840 BAR 1685 IF 16850 LIMIT MOUSE 16860 UNKNOWN OP: 0x3A 16870 REM PRINT SPIRAL PARAMETERS 16880 CLW 16890 PRINT 1690 GOTO 16900 PRINT 1691 UNKNOWN OP: 0x3A 16910 PRINT 1692 REM SCREEN SAVER 16920 PRINT 16930 PRINT 16940 PRINT 1695 EXTENSION (Index #5) (Token 0xa2) 16950 RETURN 1696 IF 16960 UNKNOWN OP: 0x3A 1697 VARNAME 16970 REM SET DATE 1698 VARNAME 16980 GOSUB 1699 GOTO 16990 WINDOPEN 170 UNKNOWN OP: 0x3A 1700 UNKNOWN OP: 0x3A 17000 VARNAME 17010 WHILE 17020 VARNAME 17030 WEND 17040 CLW 17050 VARNAME 17060 VARNAME 17070 VARNAME 17080 INPUT 17090 VARNAME 1710 VARNAME 17100 VARNAME 17110 INPUT 17120 VARNAME 17130 VARNAME 17140 PRINT 17150 WHILE 17160 VARNAME 17170 WEND 17180 IF 17190 DATE$ 1720 VARNAME 17200 UNKNOWN OP: 0x3A 17210 REM SET TIME 17220 VARNAME 17230 VARNAME 17240 WHILE 17250 VARNAME 17260 WEND 17270 CLW 17280 INPUT 17290 VARNAME 1730 VARNAME 17300 IF 17310 VARNAME 17320 INPUT 17330 VARNAME 17340 IF 17350 VARNAME 17360 PRINT 17370 WHILE 17380 VARNAME 17390 WEND 1740 GOSUB 17400 IF 17410 VARNAME 17420 TIME$ 17430 RETURN 17440 UNKNOWN OP: 0x3A 17450 MODE 17460 INK 17470 CENTRE 17480 PRINT 17490 PRINT 1750 VARNAME 17500 PRINT 17510 PRINT 17520 PRINT 17530 PRINT 17540 PRINT 17550 PRINT 17560 PRINT 17570 PRINT 17580 PRINT 17590 PRINT 1760 UNKNOWN OP: 0x3A 17600 PRINT 17610 GOSUB 17620 UNKNOWN OP: 0x3A 17630 REM CLIP 17640 HIDE 17650 GOSUB 17660 LOCATE 17670 VARNAME 17680 IF 17690 IF 1770 VARNAME 17700 DRAW 17710 DRAW 17720 GOTO 17730 IF 17740 VARNAME 17750 HOME 17760 LOCATE 17770 LIMIT MOUSE 17780 VARNAME 17790 BOX 1780 VARNAME 17800 BOX 17810 IF 17820 GOTO 17830 REM *** ASYMETTRIC *** 17840 VARNAME 17850 HOME 17860 LOCATE 17870 LIMIT MOUSE 17880 VARNAME 17890 BOX 1790 UNKNOWN OP: 0x3A 17900 BOX 17910 IF 17920 GOTO 17930 UNKNOWN OP: 0x3A 17940 REM FLOWERS see BBC p 39 17950 HIDE 17960 GOSUB 17970 VARNAME 17980 FOR 17990 VARNAME 180 REM *** FOR SLIDESHOW AND DIR *** 1800 VARNAME 18000 NEXT 18010 FOR 18020 POLYGON 18030 GOSUB 18040 VARNAME 18050 UNKNOWN OP: 0x3A 18060 GOSUB 18070 MENU$ 18080 VARNAME 18090 MENU$ 1810 VARNAME 18100 MENU$ 18110 MENU 18120 EXTENSION (Index #3) (Token 0x88) 18130 GOSUB 18140 VARNAME 18150 IF 18160 IF 18170 IF 18180 IF 18190 IF 1820 GOSUB 18200 IF 18210 IF 18220 IF 18230 GOTO 18240 UNKNOWN OP: 0x3A 18250 REM PRINT FLOWER PARAMETERS 18260 CLW 18270 PRINT 18280 PRINT 18290 RETURN 1830 REM BUTTON FX / PRE-DRAW : DRAW : POST-DRAW 18300 UNKNOWN OP: 0x3A 18310 REM ***** LOAD ***** 18320 CLS 18330 SET ZONE 18340 IF 18350 IF 18360 GOTO 18370 VARNAME 18380 VARNAME 18390 VARNAME 1840 IF 18400 VARNAME 18410 UNKNOWN OP: 0x3A 18420 IF 18430 VARNAME 18440 REM *** LOAD INF *** 18450 VARNAME 18460 OPEN IN 18470 AUTO BACK 18480 PRINT 18490 IF 1850 IF 18500 IF 18510 IF 18520 IF 18530 IF 18540 PRINT 18550 PRINT 18560 WHILE 18570 WEND 18580 VARNAME 18590 UNKNOWN OP: 0x3A 1860 RETURN 18600 REM main LOAD routine 18610 CLS 18620 GOSUB 18630 GOSUB 18640 REM STORE PICTURE before looking for .INF file! 18650 IF 18660 RETURN 18670 UNKNOWN OP: 0x3A 18680 REM OP ART 18690 GOSUB 1870 UNKNOWN OP: 0x3A 18700 IF 18710 VARNAME 18720 UNKNOWN OP: 0x3A 18730 REPEAT 18740 VARNAME 18750 IF 18760 VARNAME 18770 IF 18780 IF 18790 IF 1880 VARNAME 18800 IF 18810 REM DO VERTICAL CENTRE 18820 GOSUB 18830 GOSUB 18840 IF 18850 VARNAME 18860 UNTIL 18870 RETURN 18880 UNKNOWN OP: 0x3A 18890 ON 1890 VARNAME 18900 IF 18910 REM RHS VERTICAL CENTRES 18920 IF 18930 UNKNOWN OP: 0x3A 18940 VARNAME 18950 VARNAME 18960 IF 18970 IF 18980 VARNAME 18990 VARNAME 190 DIM 1900 GOSUB 19000 IF 19010 IF 19020 IF 19030 IF 19040 ON 19050 ON 19060 IF 19070 GOTO 19080 UNKNOWN OP: 0x3A 19090 REM MIRROR ON RHS 1910 REM BUTTON FX / PRE-DRAW : DRAW : POST-DRAW 19100 ON 19110 ON 19120 RETURN 19130 UNKNOWN OP: 0x3A 19140 REM VERTICAL CENTRE OF SCREEN 19150 BAR 19160 RBAR 19170 BOX 19180 UNKNOWN OP: 0x3A 19190 REM VERTICAL CENTRES 1920 IF 19200 BAR 19210 RBAR 19220 BOX 19230 UNKNOWN OP: 0x3A 19240 REM DO IT HIGHER UP 19250 BAR 19260 RBAR 19270 BOX 19280 UNKNOWN OP: 0x3A 19290 REM DO IT LOWER DOWN 1930 IF 19300 BAR 19310 RBAR 19320 BOX 19330 UNKNOWN OP: 0x3A 19340 REM MIRROR IT ON RHS TOP 19350 BAR 19360 RBAR 19370 BOX 19380 UNKNOWN OP: 0x3A 19390 REM MIRROR IT ON RHS BOTTOM 1940 REM STAR STYLE MENU 19400 BAR 19410 RBAR 19420 BOX 19430 UNKNOWN OP: 0x3A 19440 REM MENUS FOR OP ART 19450 GOSUB 19460 MENU$ 19470 MENU$ 19480 MENU$ 19490 MENU 1950 REM PRE-MENU : BUTTON FX : MENU 19500 EXTENSION (Index #3) (Token 0x88) 19510 GOSUB 19520 VARNAME 19530 IF 19540 IF 19550 IF 19560 IF 19570 GOTO 19580 UNKNOWN OP: 0x3A 19590 REM DISPLAY OP ART VARIABLES 1960 IF 19600 CLW 19610 PRINT 19620 RETURN 19630 UNKNOWN OP: 0x3A 19640 REM ********* SPRITES ********* 19650 EXTENSION (Index #12) (Token 0x80) 19660 GOSUB 19670 REM *** CONSTRUCT ANIMATION STRING FOR SPR *** 19680 VARNAME 19690 VARNAME 1970 RETURN 19700 REM *** 14 IMAGES, LESS IF KOLMAX < 15 *** 19710 FOR 19720 VARNAME 19730 VARNAME 19740 RETURN 19750 UNKNOWN OP: 0x3A 19760 REM *** CONSTRUCT MOVE X STRING *** 19770 VARNAME 19780 VARNAME 19790 VARNAME 1980 UNKNOWN OP: 0x3A 19800 VARNAME 19810 VARNAME 19820 VARNAME 19830 VARNAME 19840 UNKNOWN OP: 0x3A 19850 REM *** CONSTRUCT MOVE Y STRING *** 19860 VARNAME 19870 VARNAME 19880 VARNAME 19890 VARNAME 1990 VARNAME 19900 VARNAME 19910 VARNAME 19920 VARNAME 19930 MOVE X 19940 UNKNOWN OP: 0x3A 19950 REM *** TURN ON SPRITE *** 19960 SPRITE 19970 IF 19980 UNKNOWN OP: 0x3A 19990 REM *** LOOP STARTS *** 20 ON ERROR 200 FOR 2000 VARNAME 20000 PUT SPRITE 20010 IF 20020 IF 20030 IF 20040 IF 20050 GOTO 20060 UNKNOWN OP: 0x3A 20070 REM ***** SPRITES MENU ***** 20080 MODE 20090 MENU$ 2010 GOSUB 20100 MENU$ 20110 MENU$ 20120 MENU$ 20130 MENU$ 20140 MENU$ 20150 MENU$ 20160 MENU$ 20170 MENU$ 20180 MENU 20190 EXTENSION (Index #3) (Token 0x88) 2020 REM BUTTON FX / PRE-DRAW : DRAW : POST-DRAW 20200 GOSUB 20210 UNKNOWN OP: 0x3A 20220 REM *** MENU LOOP *** 20230 VARNAME 20240 IF 20250 IF 20260 IF 20270 IF 20280 IF 20290 IF 2030 IF 20300 IF 20310 IF 20320 IF 20330 IF 20340 IF 20350 IF 20360 IF 20370 IF 20380 GOTO 20390 UNKNOWN OP: 0x3A 2040 IF 20400 REM *** SPRITE HELP *** 20410 HIDE 20420 PRINT 20430 PRINT 20440 PRINT 20450 PRINT 20460 PRINT 20470 PEN 20480 PRINT 20490 PRINT 2050 RETURN 20500 PRINT 20510 LOCATE 20520 WHILE 20530 WEND 20540 UNKNOWN OP: 0x3A 20550 REM *** FREEHAND SPRITE DRAWING *** 20560 ANIM 20570 IF 20580 VARNAME 20590 IF 2060 UNKNOWN OP: 0x3A 20600 IF 20610 GOTO 20620 UNKNOWN OP: 0x3A 20630 REM *** BOUNCE SPRITE *** 20640 VARNAME 20650 WAIT VBL 20660 IF 20670 VARNAME 20680 IF 20690 VARNAME 2070 VARNAME 20700 IF 20710 GOTO 20720 UNKNOWN OP: 0x3A 20730 REM PRINT SPRITE PARAMETERS 20740 EXTENSION (Index #3) (Token 0x88) 20750 LOCATE 20760 LOCATE 20770 GOSUB 20780 LOCATE 20790 PRINT 2080 VARNAME 20800 LOCATE 20810 LOCATE 20820 LOCATE 20830 LOCATE 20840 LOCATE 20850 RETURN 20860 UNKNOWN OP: 0x3A 20870 REM ADD STEPS (TENS +UNITS) 20880 VARNAME 20890 IF 2090 GOSUB 20900 IF 20910 RETURN 20920 UNKNOWN OP: 0x3A 20930 REM *** MIRROR MENU *** 20940 IF 20950 GOSUB 20960 FOR 20970 MENU$ 20980 MENU$ 20990 MENU$ 210 UNKNOWN OP: 0x3A 2100 REM BUTTON FX / PRE-DRAW : DRAW : POST-DRAW 21000 MENU$ 21010 MENU$ 21020 MENU$ 21030 MENU$ 21040 MENU$ 21050 MENU$ 21060 MENU$ 21070 MENU 21080 GOSUB 21090 EXTENSION (Index #3) (Token 0x88) 2110 IF 21100 EXTENSION (Index #17) (Token 0x82) 21110 VARNAME 21120 IF 21130 IF 21140 IF 21150 IF 21160 IF 21170 IF 21180 IF 21190 IF 2120 REM PRE-MENU : BUTTON FX : MENU 21200 IF 21210 IF 21220 GOTO 21230 UNKNOWN OP: 0x3A 21240 IF 21250 RETURN 21260 UNKNOWN OP: 0x3A 21270 REM MIRROR HELP 21280 GOSUB 21290 PRINT 2130 IF 21300 PRINT 21310 PRINT 21320 PRINT 21330 PRINT 21340 PRINT 21350 PRINT 21360 PRINT 21370 PRINT 21380 PRINT 21390 PRINT 2140 RETURN 21400 PRINT 21410 GOSUB 21420 UNKNOWN OP: 0x3A 21430 IF 21440 IF 21450 IF 21460 IF 21470 RETURN 21480 UNKNOWN OP: 0x3A 21490 REM *** DISPLAY MIRROR OPTIONS CHOSEN *** 2150 UNKNOWN OP: 0x3A 21500 EXTENSION (Index #3) (Token 0x82) 21510 LOCATE 21520 LOCATE 21530 IF 21540 LOCATE 21550 IF 21560 IF 21570 IF 21580 RETURN 21590 UNKNOWN OP: 0x3A 2160 VARNAME 21600 REM *** QUARTER COPYING ROUTINES *** 21610 REM COPY 1 TO 2 21620 EXTENSION (Index #12) (Token 0x8c) 21630 REM COPY 1 TO 3 21640 EXTENSION (Index #12) (Token 0x8c) 21650 REM COPY 1 TO 4 21660 EXTENSION (Index #12) (Token 0x8c) 21670 REM COPY 2 TO 1 21680 EXTENSION (Index #12) (Token 0x8c) 21690 REM COPY 2 TO 3 2170 VARNAME 21700 EXTENSION (Index #12) (Token 0x8c) 21710 REM COPY 2 TO 4 21720 EXTENSION (Index #12) (Token 0x8c) 21730 REM COPY 3 TO 1 21740 EXTENSION (Index #12) (Token 0x8c) 21750 REM COPY 3 TO 2 21760 EXTENSION (Index #12) (Token 0x8c) 21770 REM COPY 3 TO 4 21780 EXTENSION (Index #12) (Token 0x8c) 21790 REM COPY 4 TO 1 2180 GOSUB 21800 EXTENSION (Index #12) (Token 0x8c) 21810 REM COPY 4 TO 2 21820 EXTENSION (Index #12) (Token 0x8c) 21830 REM COPY 4 TO 3 21840 EXTENSION (Index #12) (Token 0x8c) 21850 UNKNOWN OP: 0x3A 21860 REM *** MIRROR ROUTINES *** 21870 UNKNOWN OP: 0x3A 21880 REM Q1/M1 21890 FOR 2190 REM BUTTON FX / PRE-DRAW : DRAW : POST-DRAW 21900 EXTENSION (Index #12) (Token 0x86) 21910 UNKNOWN OP: 0x3A 21920 REM Q2/M1 21930 GOSUB 21940 FOR 21950 FOR 21960 EXTENSION (Index #12) (Token 0x86) 21970 UNKNOWN OP: 0x3A 21980 REM Q3/M1 21990 GOSUB 220 REM *** SPRITE VARIABLES *** 2200 IF 22000 FOR 22010 FOR 22020 EXTENSION (Index #12) (Token 0x86) 22030 UNKNOWN OP: 0x3A 22040 REM Q4/M1 22050 GOSUB 22060 FOR 22070 FOR 22080 EXTENSION (Index #12) (Token 0x86) 22090 UNKNOWN OP: 0x3A 2210 REM BUTTON FX / PRE-DRAW : MODE : DRAW : POST-DRAW 22100 REM Q1/M2 22110 GOSUB 22120 FOR 22130 EXTENSION (Index #12) (Token 0x86) 22140 UNKNOWN OP: 0x3A 22150 REM Q2/M2 22160 FOR 22170 EXTENSION (Index #12) (Token 0x86) 22180 UNKNOWN OP: 0x3A 22190 REM Q3/M2 2220 IF 22200 GOSUB 22210 FOR 22220 FOR 22230 EXTENSION (Index #12) (Token 0x86) 22240 UNKNOWN OP: 0x3A 22250 REM Q4/M2 22260 GOSUB 22270 FOR 22280 FOR 22290 EXTENSION (Index #12) (Token 0x86) 2230 RETURN 22300 UNKNOWN OP: 0x3A 22310 REM Q1/M3 22320 GOSUB 22330 FOR 22340 FOR 22350 UNKNOWN OP: 0x3A 22360 REM Q2/M3 22370 GOSUB 22380 FOR 22390 FOR 2240 UNKNOWN OP: 0x3A 22400 UNKNOWN OP: 0x3A 22410 REM Q3/M3 22420 FOR 22430 UNKNOWN OP: 0x3A 22440 REM Q4/M3 22450 GOSUB 22460 FOR 22470 FOR 22480 UNKNOWN OP: 0x3A 22490 REM Q1/M4 2250 VARNAME 22500 GOSUB 22510 FOR 22520 FOR 22530 UNKNOWN OP: 0x3A 22540 REM Q2/M4 22550 GOSUB 22560 FOR 22570 FOR 22580 UNKNOWN OP: 0x3A 22590 REM Q3/M4 2260 VARNAME 22600 GOSUB 22610 FOR 22620 FOR 22630 UNKNOWN OP: 0x3A 22640 REM Q4/M4 22650 FOR 22660 REM *** END OF QUARTER MIRROR SUBS *** 22670 UNKNOWN OP: 0x3A 22680 REM *** HALVES *** 22690 REM MIRROR LEFT HALF ON RIGHT 2270 GOSUB 22700 FOR 22710 FOR 22720 NEXT 22730 EXTENSION (Index #3) (Token 0x86) 22740 UNKNOWN OP: 0x3A 22750 REM MIRROR RIGHT HALF ON LEFT 22760 FOR 22770 FOR 22780 NEXT 22790 UNKNOWN OP: 0x3A 2280 IF 22800 REM COPY LEFT TO RIGHT THEN MIRROR RIGHT ON LEFT 22810 EXTENSION (Index #12) (Token 0x8c) 22820 GOSUB 22830 UNKNOWN OP: 0x3A 22840 REM COPY RIGHT TO LEFT THEN MIRROR LEFT ON RIGHT 22850 EXTENSION (Index #12) (Token 0x8c) 22860 GOSUB 22870 UNKNOWN OP: 0x3A 22880 REM *** DISK OPERATIONS *** 22890 GOSUB 2290 RETURN 22900 MENU$ 22910 MENU$ 22920 MENU$ 22930 MENU$ 22940 MENU$ 22950 MENU 22960 LOCATE 22970 VARNAME 22980 LOCATE 22990 LOCATE 230 DIM 2300 UNKNOWN OP: 0x3A 23000 FIX 23010 EXTENSION (Index #3) (Token 0x88) 23020 VARNAME 23030 IF 23040 IF 23050 IF 23060 IF 2310 VARNAME 23100 LOCATE 23110 GOTO 23120 UNKNOWN OP: 0x3A 23130 REM DELETE "FILE.*" 23140 MENU 23150 IF 23160 VARNAME 23170 VARNAME 23180 VARNAME 23190 IF 2320 VARNAME 23200 IF 23210 GOTO 23220 EXTENSION (Index #3) (Token 0x82) 23230 IF 23240 VARNAME 23250 IF 23260 IF 23270 GOTO 23280 VARNAME 23290 IF 2330 GOSUB 23300 IF 23310 IF 23320 VARNAME 23330 UNKNOWN OP: 0x3A 23340 REM *** general purpose DIRECTORY *** 23350 SHOW 23360 GOSUB 23370 HIDE 23380 GOSUB 23390 REPEAT 2340 IF 23400 VARNAME 23410 UNTIL 23420 FOR 23430 PRINT 23440 NEXT 23450 RETURN 23460 UNKNOWN OP: 0x3A 23470 IF 23480 VARNAME 23490 UNKNOWN OP: 0x3A 2350 IF 23500 MODE 23510 INK 23520 UNKNOWN OP: 0x3A 23530 REM *** DISK ERROR TRAP *** 23540 MENU 23542 IF 23543 UNKNOWN OP: 0x3A 23545 VARNAME 23550 IF 23570 IF 23580 IF 23590 IF 2360 RETURN 23600 IF 23615 UNKNOWN OP: 0x3A 23620 GOSUB 23622 IF 23623 IF 23630 IF 23640 IF 23650 IF 23660 IF 23670 UNKNOWN OP: 0x3A 23675 REM FLASH GREEN, PRINT BOOB$ 23680 CLS 23690 IF 2370 UNKNOWN OP: 0x3A 23700 IF 23710 IF 23720 IF 23730 IF 23740 PRINT 23750 PRINT 23760 IF 23770 VARNAME 23780 IF 23790 IF 2380 VARNAME 23800 GOTO 23810 INVERSE 23820 IF 23830 IF 23840 IF 23850 COLOUR 23855 IF 23856 IF 23860 TIMER 23870 UNKNOWN OP: 0x3A 23880 REM *** QUIT *** 23890 WINDOPEN 2390 VARNAME 23900 VARNAME 23910 IF 23920 CLS 23930 ERASE 23940 UNKNOWN OP: 0x3A 23950 REM *** DISK HELP *** 23960 MODE 23970 CENTRE 23980 PRINT 23990 PRINT 240 GOSUB 2400 GOSUB 24000 PRINT 24010 PRINT 24020 PRINT 24030 PRINT 24040 PRINT 24050 PRINT 24060 PRINT 24070 PRINT 24080 PRINT 24090 PRINT 2410 IF 24100 PRINT 24110 UNKNOWN OP: 0x3A 24120 INVERSE 24130 WHILE 24140 WEND 24150 UNKNOWN OP: 0x3A 24160 REM *** SLIDESHOW MENU *** 24170 GOSUB 24180 VARNAME 24190 VARNAME 2420 IF 24200 IF 24210 EXTENSION (Index #3) (Token 0x82) 24220 MENU$ 24230 MENU$ 24240 MENU$ 24250 MENU$ 24260 MENU$ 24270 MENU 24280 EXTENSION (Index #3) (Token 0x88) 24290 UNKNOWN OP: 0x3A 2430 RETURN 24300 REM *** MENU LOOP SLIDESHOW *** 24310 VARNAME 24320 IF 24330 IF 24340 IF 24350 IF 24360 IF 24370 IF 24380 IF 24390 IF 2440 UNKNOWN OP: 0x3A 24400 IF 24410 IF 24420 UNKNOWN OP: 0x3A 24430 IF 24440 UNKNOWN OP: 0x3A 24450 IF 24460 IF 24470 IF 24480 IF 24490 IF 2450 VARNAME 24500 IF 24510 GOTO 24520 UNKNOWN OP: 0x3A 24530 REM *** SHOW CHOICES *** 24540 INK 24550 COLOUR 24560 VARNAME 24570 VARNAME 24580 VARNAME 24590 VARNAME 2460 VARNAME 24600 VARNAME 24610 VARNAME 24620 VARNAME 24630 VARNAME 24640 VARNAME 24650 VARNAME 24660 VARNAME 24670 VARNAME 24680 VARNAME 24690 VARNAME 2470 GOSUB 24700 VARNAME 24710 VARNAME 24720 VARNAME 24730 VARNAME 24740 VARNAME 24750 VARNAME 24760 VARNAME 24770 VARNAME 24780 VARNAME 24790 VARNAME 2480 IF 24800 VARNAME 24810 RETURN 24820 UNKNOWN OP: 0x3A 24830 EXTENSION (Index #17) (Token 0x8c) 24840 UNKNOWN OP: 0x3A 24850 REM * FIND picture FILES * 24860 CLS 24870 GOSUB 24880 DRIVE$ 24890 VARNAME 2490 IF 24900 GOSUB 24910 IF 24920 RETURN 24930 UNKNOWN OP: 0x3A 24940 REM USE FLOPPY DRIVES A: and B: 24950 DRIVE$ 24960 GOSUB 24970 GOSUB 24980 IF 24990 DRIVE$ 250 UNKNOWN OP: 0x3A 2500 RETURN 25000 GOSUB 25010 GOSUB 25020 IF 25030 IF 25040 UNKNOWN OP: 0x3A 25050 REM |||||||||||||||||||||||||||||||||||||||||||||||||||| 25060 REM *** GET NEO / PI1 FILES *** \\\ SHOW PIX SELECTED /// 25070 CLS 25080 VARNAME 25090 IF 2510 UNKNOWN OP: 0x3A 25100 VARNAME 25110 GOSUB 25120 REPEAT 25130 VARNAME 25140 UNTIL 25150 IF 25160 AUTO BACK 25170 RETURN 25180 UNKNOWN OP: 0x3A 25190 REM TRUNCATE AND DISPLAY FILENAMES FOUND 2520 VARNAME 25200 VARNAME 25210 IF 25220 RETURN 25230 UNKNOWN OP: 0x3A 25240 REM SHOW SEQUENCE OF PICTURES 25250 HIDE 25260 VARNAME 25270 IF 25280 IF 25290 VARNAME 2530 VARNAME 25300 REM subroutine - - - - - DISPLAY ONE PIC 25310 UNKNOWN OP: 0x3A 25320 CLS 25330 INC 25340 IF 25350 IF 25360 EXTENSION (Index #3) (Token 0x88) 25370 RETURN 25380 UNKNOWN OP: 0x3A 25390 REM RANDOMISE 2540 GOSUB 25400 FOR 25410 REM CHECK IF ALL ARE USED AND RETURN IF THEY ARE 25420 VARNAME 25430 REM PICK A RANDOM NUMBER BUT TRY AGAIN IF IT'S BEEN USED ALREADY 25440 VARNAME 25450 REM USE THIS ONE, TAG IT AS USED 25460 VARNAME 25470 UNKNOWN OP: 0x3A 25480 IF 25490 UNKNOWN OP: 0x3A 2550 IF 25500 VARNAME 25510 REM Unpacking 6 into 7 invokes the menuscreen's palette so use OPLT before exiting AB or switching from A to B (or B to A). 25520 IF 25530 IF 25540 CLS 25550 INVERSE 25560 IF 25570 WAIT 25580 VARNAME 25590 WAIT 2560 IF 25600 WHILE 25610 WEND 25620 REM ^ *** EXIT FROM SLIDESHOW TO MAIN MENU *** also ERROR TRAP 25630 UNKNOWN OP: 0x3A 25640 REM *** DISPLAY ONE PIC *** 25650 VARNAME 25660 CLEAR KEY 25670 VARNAME 25680 UNKNOWN OP: 0x3A 25690 REM NO FADE 2570 RETURN 25700 EXTENSION (Index #12) (Token 0x80) 25710 UNKNOWN OP: 0x3A 25720 REM *** QUICK FADES *** 25730 VARNAME 25740 IF 25750 RETURN 25760 UNKNOWN OP: 0x3A 25770 FOR 25780 IF 25790 VARNAME 2580 UNKNOWN OP: 0x3A 25800 RETURN 25810 EXTENSION (Index #12) (Token 0x8c) 25820 FOR 25830 RETURN 25840 UNKNOWN OP: 0x3A 25850 FOR 25860 EXTENSION (Index #12) (Token 0x8c) 25870 EXTENSION (Index #12) (Token 0x8c) 25880 NEXT 25890 UNKNOWN OP: 0x3A 2590 VARNAME 25900 REM *** VARIED FADE *** 25910 VARNAME 25920 VARNAME 25930 ON 25940 IF 25950 RETURN 25960 UNKNOWN OP: 0x3A 25970 REM - - - - - - - - - >>> ALWAYS COMES HERE AFTER ANY FADE <<< 25980 UNKNOWN OP: 0x3A 25990 VARNAME 260 REM INITIALISE SPRITE DEFAULT VARIABLES 2600 VARNAME 26000 IF 26010 UNKNOWN OP: 0x3A 26020 REM *** .INF FILES SELECTED *** 26030 VARNAME 26040 VARNAME 26050 OPEN IN 26060 VARNAME 26070 GOTO 26080 UNKNOWN OP: 0x3A 26090 VARNAME 2610 GOSUB 26100 IF 26110 GOTO 26120 UNKNOWN OP: 0x3A 26130 IF 26140 IF 26150 VARNAME 26160 IF 26170 RETURN 26180 UNKNOWN OP: 0x3A 26190 REM *** NOT USING .INF FILES *** 2620 IF 26200 VARNAME 26210 ON 26220 REM STILL PIC 26230 SHIFT 26240 RETURN 26250 UNKNOWN OP: 0x3A 26260 REM CYCLE COLOURS 26270 WAIT VBL 26280 RETURN 26290 UNKNOWN OP: 0x3A 2630 IF 26300 REM CYCLE PALETTES 26310 SHIFT 26320 VARNAME 26330 IF 26340 FOR 26350 VARNAME 26360 VARNAME 26370 IF 26380 IF 26390 IF 2640 RETURN 26400 IF 26410 VARNAME 26420 GOTO 26430 VARNAME 26440 NEXT 26450 UNKNOWN OP: 0x3A 26460 REM *** SAVE OPTIONAL SLIDESHOW .INF FILE TO DISK *** 26470 IF 26480 REM GET LAST INF FILE IF ANY... 26490 VARNAME 2650 UNKNOWN OP: 0x3A 26500 UNKNOWN OP: 0x3A 26510 WAIT 26520 OPEN IN 26530 WAIT 26540 UNKNOWN OP: 0x3A 26550 GOSUB 26560 MENU$ 26570 FOR 26580 MENU$ 26590 MENU$ 2660 VARNAME 26600 MENU$ 26610 MENU 26620 UNKNOWN OP: 0x3A 26630 REM *** MENU LOOP *** 26640 VARNAME 26650 IF 26660 IF 26670 IF 26680 IF 26690 IF 2670 VARNAME 26700 IF 26710 IF 26720 IF 26730 IF 26740 IF 26750 IF 26760 IF 26770 IF 26780 GOTO 26790 UNKNOWN OP: 0x3A 2680 GOSUB 26800 REM INF HELP 26810 GOSUB 26820 PRINT 26830 PRINT 26840 PRINT 26850 PRINT 26860 PRINT 26870 PRINT 26880 PRINT 26890 PRINT 2690 IF 26900 GOSUB 26910 UNKNOWN OP: 0x3A 26920 REM *** DISPLAY AND DEMONSTRATE SAVE INF *** 26930 WAIT 26940 SHIFT 26950 GOSUB 26960 WINDOPEN 26970 GOSUB 26980 PRINT 26990 PRINT 270 VARNAME 2700 IF 27000 PRINT 27010 PRINT 27020 RETURN 27030 UNKNOWN OP: 0x3A 27040 REM *** WRITE ???.INF FILE TO DISK *** 27050 OPEN OUT 27060 RETURN 27070 UNKNOWN OP: 0x3A 27080 REM *** DELAY / TEST KEYS IN SLIDESHOW *** 27090 IF 2710 RETURN 27100 VARNAME 27110 VARNAME 27120 UNKNOWN OP: 0x3A 27130 REM EXIT 27140 IF 27145 EXTENSION (Index #3) (Token 0x82) 27150 REM LEFT ARROW - PREVIOUS PIC 27160 IF 27170 REM RIGHT ARROW - NEXT PIC / PALETTE 27180 IF 27190 IF 2720 UNKNOWN OP: 0x3A 27200 IF 27210 REM INSERT / DELETE 27220 IF 27230 IF 27240 IF 27250 GOTO 27260 UNKNOWN OP: 0x3A 27270 REM *** VARIED FADES *** 27280 FOR 27290 RETURN 2730 VARNAME 27300 UNKNOWN OP: 0x3A 27310 FOR 27320 EXTENSION (Index #12) (Token 0x8c) 27330 EXTENSION (Index #12) (Token 0x8c) 27340 NEXT 27350 FOR 27360 EXTENSION (Index #12) (Token 0x8c) 27370 EXTENSION (Index #12) (Token 0x8c) 27380 NEXT 27390 RETURN 2740 VARNAME 27400 UNKNOWN OP: 0x3A 27410 FOR 27420 EXTENSION (Index #12) (Token 0x8c) 27430 EXTENSION (Index #12) (Token 0x8c) 27440 NEXT 27450 RETURN 27460 UNKNOWN OP: 0x3A 27470 VARNAME 27480 FOR 27490 EXTENSION (Index #12) (Token 0x8c) 2750 GOSUB 27500 EXTENSION (Index #12) (Token 0x8c) 27510 NEXT 27520 RETURN 27530 UNKNOWN OP: 0x3A 27540 LOGIC 27550 FOR 27560 EXTENSION (Index #12) (Token 0x8c) 27570 EXTENSION (Index #12) (Token 0x8c) 27580 NEXT 27590 NEXT 2760 IF 27600 SCREEN SWAP 27610 NEXT 27620 RETURN 27630 UNKNOWN OP: 0x3A 27640 LOGIC 27650 EXTENSION (Index #12) (Token 0x80) 27660 BAR 27670 SCREEN SWAP 27680 NEXT 27690 RETURN 2770 IF 27700 UNKNOWN OP: 0x3A 27710 LOGIC 27720 FOR 27730 FOR 27740 DEC 27750 IF 27760 LOGIC 27770 UNKNOWN OP: 0x3A 27780 FOR 27790 FOR 2780 RETURN 27800 EXTENSION (Index #12) (Token 0x8c) 27810 RETURN 27820 UNKNOWN OP: 0x3A 27830 VARNAME 27840 REPEAT 27850 ZOOM 27860 VARNAME 27870 UNTIL 27880 RETURN 27890 UNKNOWN OP: 0x3A 2790 UNKNOWN OP: 0x3A 27900 VARNAME 27910 GET PALETTE 27920 LOGIC 27930 REPEAT 27940 EXTENSION (Index #12) (Token 0x94) 27950 EXTENSION (Index #12) (Token 0x8c) 27960 EXTENSION (Index #12) (Token 0x94) 27970 DEC 27980 SCREEN SWAP 27990 UNTIL 280 VARNAME 2800 VARNAME 28000 LOGIC 28010 UNKNOWN OP: 0x3A 28040 REM *** SLIDESHOW HELP *** 28050 MODE 28060 INVERSE 28070 INK 28080 PRINT 28090 PRINT 2810 VARNAME 28100 PRINT 28110 PRINT 28120 PRINT 28130 PEN 28140 PEN 28150 PEN 28160 PRINT 28170 PEN 28180 PEN 28190 PRINT 2820 GOSUB 28200 PRINT 28210 PEN 28220 PRINT 28230 PRINT 28240 PRINT 28250 PRINT 28260 PEN 28270 PRINT 28280 GOSUB 28290 UNKNOWN OP: 0x3A 2830 IF 28300 REM *** start of FX *** 28310 REM LINEAR SCROLL 28320 DEF 28330 EXTENSION (Index #12) (Token 0x80) 28340 FOR 28350 EXTENSION (Index #12) (Token 0x8c) 28360 NEXT 28370 IF 28380 GOTO 28390 UNKNOWN OP: 0x3A 2840 IF 28400 REM SCROLL & STRETCH BOTTOM 28410 DEF 28420 DEF 28430 DEF 28440 DEF 28450 DEF 28460 DEF 28470 DEF 28480 EXTENSION (Index #12) (Token 0x80) 28490 FOR 2850 RETURN 28500 EXTENSION (Index #12) (Token 0x8c) 28510 SCROLL 28520 NEXT 28530 IF 28540 GOTO 28550 UNKNOWN OP: 0x3A 28560 REM STRETCH TOP 28570 DEF 28580 DEF 28590 DEF 2860 UNKNOWN OP: 0x3A 28600 DEF 28610 DEF 28620 DEF 28630 DEF 28640 EXTENSION (Index #12) (Token 0x80) 28650 FOR 28660 EXTENSION (Index #12) (Token 0x8c) 28670 SCROLL 28680 IF 28690 NEXT 2870 VARNAME 28700 IF 28710 GOTO 28720 UNKNOWN OP: 0x3A 28730 REM CONVERGE INTO CENTRE 28740 DEF 28750 DEF 28760 DEF 28770 DEF 28780 DEF 28790 DEF 2880 VARNAME 28800 DEF 28810 REM BOTTOM HALF 28820 DEF 28830 DEF 28840 DEF 28850 DEF 28860 DEF 28870 DEF 28880 DEF 28890 EXTENSION (Index #12) (Token 0x80) 2890 GOSUB 28900 FOR 28910 EXTENSION (Index #12) (Token 0x8c) 28920 EXTENSION (Index #12) (Token 0x8c) 28930 SCROLL 28940 IF 28950 IF 28960 NEXT 28970 IF 28980 GOTO 28990 UNKNOWN OP: 0x3A 290 VARNAME 2900 IF 29000 REM SCROLL FX MENU 29010 IF 29020 GOSUB 29030 MENU$ 29040 MENU$ 29050 MENU$ 29060 VARNAME 29070 MENU 29080 EXTENSION (Index #3) (Token 0x88) 29090 UNKNOWN OP: 0x3A 2910 IF 29100 VARNAME 29110 IF 29120 IF 29130 IF 29140 IF 29150 IF 29160 IF 29170 IF 29180 IF 29190 GOTO 2920 RETURN 29200 UNKNOWN OP: 0x3A 29210 REM BEND OPTIONS - CLICK ON ZONES 29220 HIDE 29230 GOSUB 29240 RETURN 29250 UNKNOWN OP: 0x3A 29260 LOCATE 29270 UNKNOWN OP: 0x3A 29280 REM LINEAR BEND OPTIONS 29290 LOCATE 2930 UNKNOWN OP: 0x3A 29300 GOSUB 29310 REM for I=50 to 53 : box ZX(I),ZY(I) to ZX1(I),ZY1(I) : next 29320 LOCATE 29330 LOCATE 29340 VARNAME 29350 IF 29360 IF 29370 IF 29380 IF 29390 IF 2940 VARNAME 29400 GOTO 29410 UNKNOWN OP: 0x3A 29420 REM NON LINEAR BEND OPTIONS 29430 GOSUB 29440 GOSUB 29450 LOCATE 29460 LOCATE 29470 LOCATE 29480 VARNAME 29490 IF 2950 VARNAME 29500 IF 29510 IF 29520 IF 29530 IF 29540 IF 29550 IF 29560 GOTO 29570 UNKNOWN OP: 0x3A 29580 REM *** ZOOM *** 29590 HIDE 2960 GOSUB 29600 GOSUB 29610 CURS 29620 VARNAME 29630 IF 29640 DRAW 29650 DRAW 29660 GOTO 29670 VARNAME 29680 HOME 29690 LIMIT MOUSE 2970 IF 29700 VARNAME 29710 BOX 29720 BOX 29730 IF 29740 GOTO 29750 UNKNOWN OP: 0x3A 29760 GOSUB 29770 UNKNOWN OP: 0x3A 29780 REM REDUCE TO 1/4 29790 GOSUB 2980 IF 29800 FOR 29810 FOR 29820 EXTENSION (Index #12) (Token 0x8c) 29830 NEXT 29840 UNKNOWN OP: 0x3A 29850 REM REDUCE TO 1/16 29860 GOSUB 29870 FOR 29880 FOR 29890 EXTENSION (Index #12) (Token 0x8c) 2990 RETURN 29900 NEXT 29910 UNKNOWN OP: 0x3A 29920 REM SINE LINE 29930 GOSUB 29940 VARNAME 29950 VARNAME 29960 VARNAME 29970 VARNAME 29980 VARNAME 29990 VARNAME 30 IF 300 VARNAME 3000 UNKNOWN OP: 0x3A 30000 VARNAME 30010 IF 30020 IF 30030 GOSUB 30040 INC 30050 GOTO 30060 UNKNOWN OP: 0x3A 30070 REM MENUS FOR SINE LINE 30080 GOSUB 30090 MENU$ 3010 UNKNOWN OP: 0x3A 30100 MENU$ 30110 MENU$ 30120 MENU$ 30130 MENU$ 30140 MENU$ 30150 MENU$ 30160 MENU$ 30170 MENU$ 30180 MENU 30190 EXTENSION (Index #3) (Token 0x88) 3020 VARNAME 30200 VARNAME 30210 IF 30220 IF 30230 IF 30240 IF 30250 IF 30260 IF 30270 IF 30280 IF 30290 IF 3030 VARNAME 30300 IF 30310 IF 30320 IF 30330 REM SINE presets 30340 IF 30350 IF 30360 IF 30370 IF 30380 IF 30390 IF 3040 GOSUB 30400 GOTO 30410 UNKNOWN OP: 0x3A 30420 REM DEFAULT LENGTHS 30430 VARNAME 30440 UNKNOWN OP: 0x3A 30450 LOCATE 30460 LOCATE 30470 LOCATE 30480 LOCATE 30490 LOCATE 3050 IF 30500 LOCATE 30510 LOCATE 30520 RETURN 30530 UNKNOWN OP: 0x3A 30540 PRINT 30550 PRINT 30560 PRINT 30570 PRINT 30580 PRINT 30590 PRINT 3060 RETURN 30600 PRINT 30610 PRINT 30620 PRINT 30630 PRINT 30640 PRINT 30650 RETURN 30660 UNKNOWN OP: 0x3A 30670 UNKNOWN OP: 0x3A 30680 REM GET START AND END POINTS OF EACH SOUND 30690 IF 3070 UNKNOWN OP: 0x3A 30700 VARNAME 30710 REM MULTIPLY BY TWO FOR STEREO 30720 VARNAME 30730 GOSUB 30740 REM play SOUND ( POKE with 3 to loop continuously ) 30750 POKE 30760 RETURN 30770 UNKNOWN OP: 0x3A 30780 REM SET UP DMA REGISTERS FOR EACH SOUND 30790 REM SPEED: 1=12KHz Stereo (normal) : 0=6KHz Stereo (half speed) 3080 VARNAME 30800 POKE 30810 REM ** set start,end etc. 30820 POKE 30830 POKE 30840 POKE 30850 POKE 30860 POKE 30870 POKE 30880 POKE 30890 POKE 3090 VARNAME 30900 POKE 30910 RETURN 30920 UNKNOWN OP: 0x3A 30930 REM *** SET ALL STEREO DEFAULTS *** 30940 DOKE 30950 DOKE 30960 DOKE 30970 DOKE 30980 DOKE 30990 RETURN 310 VARNAME 3100 GOSUB 31000 UNKNOWN OP: 0x3A 31010 REM ***** CHANGE COLOURS ***** 31020 VARNAME 31030 CLS 31040 GOSUB 31050 GOSUB 31060 UNKNOWN OP: 0x3A 31070 REM CLICK ON A COLOUR 31080 VARNAME 31090 IF 3110 IF 31100 IF 31110 VARNAME 31120 VARNAME 31130 VARNAME 31140 VARNAME 31150 VARNAME 31160 VARNAME 31170 REM EXIT WITH RIGHT MOUSE BUTTON 31180 IF 31190 GOTO 3120 RETURN 31200 UNKNOWN OP: 0x3A 31210 REM STORE SELECTED COLOURS 31220 FOR 31230 UNKNOWN OP: 0x3A 31240 REM CHANGE COLOURS TO THOSE STORED 31250 FOR 31260 NEXT 31270 UNKNOWN OP: 0x3A 31280 IF 31290 UNKNOWN OP: 0x3A 3130 UNKNOWN OP: 0x3A 31300 VARNAME 31310 LOCATE 31320 COLOUR 31330 GOSUB 31340 RETURN 31350 UNKNOWN OP: 0x3A 31360 REM SET UP ZONES, DO BOXES ICONS ETC 31370 CLS 31380 EXTENSION (Index #12) (Token 0x80) 31390 GOSUB 3140 VARNAME 31400 VARNAME 31410 FOR 31420 NEXT 31430 LOCATE 31440 SET ZONE 31450 RETURN 31460 UNKNOWN OP: 0x3A 31470 REM USE LOADED PALETTE 31480 FOR 31490 NEXT 3150 VARNAME 31500 UNKNOWN OP: 0x3A 31510 REM STORE LOADED PALETTE 31520 FOR 31530 UNKNOWN OP: 0x3A 31540 REM ###################################################################################################################################################### 31550 REM SKOPY / BITPLANE "ICONS" FROM BIG FONT 31560 CLS 31570 IF 31580 EXTENSION (Index #3) (Token 0x82) 31590 WINDOPEN 3160 GOSUB 31600 PRINT 31610 FOR 31620 EXTENSION (Index #17) (Token 0x82) 31630 NEXT 31640 EXTENSION (Index #17) (Token 0x82) 31650 UNKNOWN OP: 0x3A 31660 EXTENSION (Index #12) (Token 0x80) 31670 EXTENSION (Index #12) (Token 0x8c) 31680 REM STORE SCREEN then SELECT PALETTE then MAIN MENU 31690 LOGIC 3170 IF 31700 UNKNOWN OP: 0x3A 31710 REM SKOPY / BITPLANE FILL-PATTERNS 31720 HIDE 31730 REM ADJUST ZONE COORDINATES FOR MULTIPLES OF 16 31740 EXTENSION (Index #17) (Token 0x82) 31750 NEXT 31760 EXTENSION (Index #17) (Token 0x82) 31770 VARNAME 31780 UNKNOWN OP: 0x3A 31790 REM SKOPY / BITPLANE PRE-DEFINED SCREENS 3180 IF 31800 HIDE 31810 VARNAME 31820 UNKNOWN OP: 0x3A 31830 GOSUB 31840 EXTENSION (Index #12) (Token 0x8c) 31850 FOR 31860 GOSUB 31870 UNKNOWN OP: 0x3A 31880 UNKNOWN OP: 0x3A 31890 REM BLIT (LINK) 3190 RETURN 31900 VARNAME 31910 FOR 31920 EXTENSION (Index #17) (Token 0x96) 31930 NEXT 31940 REM MEER=rnd(3)+1 : QUARTER=rnd(3)+1 : gosub 5580 : wait 25 31950 RETURN 31960 UNKNOWN OP: 0x3A 31970 REM new bit 31980 REM 31990 IF 320 VARNAME 3200 UNKNOWN OP: 0x3A 32000 GOSUB 32010 CLS 32020 FOR 32030 EXTENSION (Index #6) (Token 0xac) 32040 NEXT 32050 FOR 32060 EXTENSION (Index #6) (Token 0xac) 32070 NEXT 32080 GOSUB 32090 RETURN 3210 VARNAME 32100 UNKNOWN OP: 0x3A 32110 REM MAIN ENTRY POINT FOR BITPLANE MERGE 32120 UNKNOWN OP: 0x3A 32130 REM DISPLAY LARGE FONT IN 1st WINDOW 32140 VARNAME 32150 IF 32160 IF 32170 CLS 32180 VARNAME 32190 FOR 3220 GOSUB 32200 UNKNOWN OP: 0x3A 32210 REM SET UP SMALL ZONES 32220 RESET ZONE 32230 FOR 32240 SET ZONE 32250 VARNAME 32260 NEXT 32270 REM ZONES FOR SCREEN and FILL 32280 SET ZONE 32290 UNKNOWN OP: 0x3A 3230 IF 32300 REM TILE DISPLAY OF CHARACTER UNDER MOUSE (in 2nd WINDOW) 32310 LIMIT MOUSE 32320 WINDOPEN 32330 EXTENSION (Index #17) (Token 0x82) 32340 VARNAME 32350 LOCATE 32360 VARNAME 32370 VARNAME 32380 IF 32390 IF 3240 RETURN 32400 IF 32410 IF 32420 REM RESTORE MENU SCREEN AND RETURN TO MAIN MENU 32430 IF 32440 EXTENSION (Index #17) (Token 0x8c) 32450 EXTENSION (Index #17) (Token 0x8c) 32460 EXTENSION (Index #17) (Token 0x8c) 32470 IF 32480 UNKNOWN OP: 0x3A 32490 REM HIDE MOUSE, DO IT IN THE BACKGROUND, SHOW MOUSE 3250 UNKNOWN OP: 0x3A 32500 HIDE 32510 FOR 32520 EXTENSION (Index #17) (Token 0x82) 32530 NEXT 32540 UNKNOWN OP: 0x3A 32550 REM NOW COPY TO PHYSICAL SCREEN 32560 EXTENSION (Index #12) (Token 0x8c) 32570 GOTO 32580 UNKNOWN OP: 0x3A 32590 REM ILLUSTRATE FILL PATTERNS ################################ 3260 VARNAME 32600 IF 32610 CLS 32620 VARNAME 32630 VARNAME 32640 FOR 32650 IF 32660 FOR 32670 SET PAINT 32680 BAR 32690 VARNAME 3270 INC 32700 NEXT 32710 NEXT 32720 WINDOPEN 32730 EXTENSION (Index #17) (Token 0x82) 32740 PEN 32750 SHOW 32760 UNKNOWN OP: 0x3A 32770 VARNAME 32780 IF 32790 IF 3280 VARNAME 32800 IF 32810 IF 32820 IF 32830 EXTENSION (Index #17) (Token 0x8c) 32840 REM ******** DO FILL PATTERN AND EXIT ******** 32850 IF 32860 IF 32870 IF 32880 SHOW 32890 UNKNOWN OP: 0x3A 3290 GOSUB 32900 VARNAME 32910 HIDE 32920 EXTENSION (Index #12) (Token 0x8c) 32930 EXTENSION (Index #17) (Token 0x82) 32940 NEXT 32950 UNKNOWN OP: 0x3A 32960 REM ######### PREDEFINED SCREENS ######### 32970 IF 32980 CLS 32990 VARNAME 330 UNKNOWN OP: 0x3A 3300 IF 33000 GOSUB 33010 WINDOPEN 33020 EXTENSION (Index #17) (Token 0x82) 33030 PRINT 33040 VARNAME 33050 IF 33060 IF 33070 IF 33080 GOTO 33090 UNKNOWN OP: 0x3A 3310 RETURN 33100 IF 33110 IF 33120 EXTENSION (Index #0) (Token 0x80) 33130 REM HIGHLIGHT CHOICE 33140 CLW 33150 PRINT 33160 RETURN 33170 UNKNOWN OP: 0x3A 33180 CLS 33190 PRINT 3320 UNKNOWN OP: 0x3A 33200 REM QUICK SHRINKING BOX ROUTINE 33210 VARNAME 33220 BOX 33230 INC 33240 GOSUB 33250 UNKNOWN OP: 0x3A 33260 REM FLASH A COLOUR (from Zonk) 33270 VARNAME 33280 FOR 33290 VARNAME 3330 VARNAME 33300 IF 33310 VARNAME 33320 NEXT 33330 FLASH 33340 RETURN 33350 UNKNOWN OP: 0x3A 3340 VARNAME 3350 IF 3360 GOSUB 3370 RETURN 3380 UNKNOWN OP: 0x3A 3390 VARNAME 340 DEF 3400 VARNAME 3410 GOSUB 3420 IF 3430 RETURN 3440 UNKNOWN OP: 0x3A 3450 VARNAME 3460 IF 3470 GOSUB 3480 IF 3490 RETURN 350 DIM 3500 UNKNOWN OP: 0x3A 3510 IF 3520 IF 3530 VARNAME 3540 GOSUB 3550 IF 3560 RETURN 3570 UNKNOWN OP: 0x3A 3580 VARNAME 3590 VARNAME 360 UNKNOWN OP: 0x3A 3600 GOSUB 3610 IF 3620 RETURN 3630 UNKNOWN OP: 0x3A 3640 VARNAME 3650 VARNAME 3660 GOSUB 3670 IF 3680 IF 3690 RETURN 370 DIM 3700 UNKNOWN OP: 0x3A 3710 VARNAME 3720 VARNAME 3730 GOSUB 3740 IF 3750 RETURN 3760 UNKNOWN OP: 0x3A 3770 VARNAME 3780 VARNAME 3790 GOSUB 380 DIM 3800 IF 3810 RETURN 3820 UNKNOWN OP: 0x3A 3830 VARNAME 3840 VARNAME 3850 GOSUB 3860 IF 3870 RETURN 3880 UNKNOWN OP: 0x3A 3890 VARNAME 390 VARNAME 3900 VARNAME 3910 GOSUB 3920 REM PREMENU ~ BUTTON FX ~ NO DARK EXIT ~ MERGE ~ DARK EXIT (if previously) 3930 IF 3940 IF 3950 RETURN 3960 UNKNOWN OP: 0x3A 3970 VARNAME 3980 GOSUB 3990 IF 40 IF 400 VARNAME 4000 RETURN 4010 UNKNOWN OP: 0x3A 4020 VARNAME 4030 FOR 4040 IF 4050 VARNAME 4060 GOSUB 4070 IF 4080 IF 4090 RETURN 410 VARNAME 4100 UNKNOWN OP: 0x3A 4110 VARNAME 4120 IF 4130 GOSUB 4140 IF 4150 RETURN 4160 UNKNOWN OP: 0x3A 4170 VARNAME 4180 GOSUB 4190 IF 420 UNKNOWN OP: 0x3A 4200 RETURN 4210 UNKNOWN OP: 0x3A 4220 VARNAME 4230 GOSUB 4240 IF 4250 RETURN 4260 UNKNOWN OP: 0x3A 4270 VARNAME 4280 IF 4290 VARNAME 430 DIM 4300 GOSUB 4310 IF 4320 RETURN 4330 UNKNOWN OP: 0x3A 4340 VARNAME 4350 VARNAME 4360 IF 4370 VARNAME 4380 GOSUB 4390 IF 440 REM PALETTE ARRAYS 4400 IF 4410 WAIT VBL 4420 UNKNOWN OP: 0x3A 4430 VARNAME 4440 GOSUB 4450 REM BUTTON FX / PRE-DRAW : LOAD : POST-DRAW 4460 IF 4470 RETURN 4480 UNKNOWN OP: 0x3A 4490 VARNAME 450 DIM 4500 GOSUB 4510 IF 4520 RETURN 4530 UNKNOWN OP: 0x3A 4531 VARNAME 4532 VARNAME 4533 GOSUB 4534 IF 4535 IF 4538 RETURN 4539 UNKNOWN OP: 0x3A 4540 VARNAME 4550 GOSUB 4560 IF 4570 IF 4580 RETURN 4590 UNKNOWN OP: 0x3A 460 FOR 4600 VARNAME 4610 GOSUB 4620 IF 4630 RETURN 4640 UNKNOWN OP: 0x3A 4650 VARNAME 4660 VARNAME 4670 GOSUB 4680 IF 4690 RETURN 470 UNKNOWN OP: 0x3A 4700 UNKNOWN OP: 0x3A 4710 VARNAME 4720 GOSUB 4730 IF 4740 RETURN 4750 UNKNOWN OP: 0x3A 4760 REM DIAMONDS 4770 IF 4780 IF 4790 UNKNOWN OP: 0x3A 480 REM READ MAIN PALETTE DATA INTO ARRAY 4800 REM QUICK SWEEPMODE CHANGE 4810 WINDOPEN 4820 LIMIT MOUSE 4830 VARNAME 4840 IF 4850 IF 4860 IF 4870 IF 4880 GOSUB 4890 WAIT 490 DIM 4900 UNKNOWN OP: 0x3A 4910 VARNAME 4920 VARNAME 4930 VARNAME 4940 VARNAME 4950 VARNAME 4960 VARNAME 4970 VARNAME 4980 VARNAME 4990 VARNAME 50 REM break off : trap 14,33,4 500 FOR 5000 VARNAME 5010 VARNAME 5020 VARNAME 5030 VARNAME 5040 RETURN 5050 UNKNOWN OP: 0x3A 5060 REM SOUND FX for Palette Modes 5070 IF 5080 IF 5090 IF 510 FOR 5100 IF 5110 IF 5120 IF 5130 RETURN 5140 UNKNOWN OP: 0x3A 5150 VARNAME 5160 UNKNOWN OP: 0x3A 5170 REM BUTTON INFO TEXT 5180 EXTENSION (Index #17) (Token 0x8c) 5190 EXTENSION (Index #17) (Token 0x8c) 520 READ 5200 EXTENSION (Index #12) (Token 0x8c) 5210 RETURN 5220 UNKNOWN OP: 0x3A 5230 REM COMMON MAIN MENU MOUSE-CLICK ROUTINE 5240 OFF 5250 VARNAME 5260 IF 5270 IF 5280 GOSUB 5290 GOSUB 530 NEXT 5300 RETURN 5310 UNKNOWN OP: 0x3A 5320 REM SIMULATE BUTTON BEING PRESSED 5330 DEC 5340 REM DEFINE BUTTON AS SCROLL AREA 5350 DEF 5360 REM STORE BUTTON IMAGE TEMPORARILY 5370 VARNAME 5380 REM HIDE MOUSE / SCROLL I PIXEL DOWN & RIGHT 5390 HIDE 540 NEXT 5400 REM SHADE BUTTON EDGES WHEN DEPRESSED 5410 INK 5420 INK 5430 INK 5440 INK 5450 WAIT 5460 REM screen$ IS TRANSPARENT SO BLACK OUT AREA BEFORE RESTORING BUTTON 5470 LOGIC 5480 REM RESTORE BUTTON TO BACKGROUND SCREEN 5490 SCREEN$ 550 UNKNOWN OP: 0x3A 5500 REM COPY RESTORED BUTTON TO PHYSIC, SHOW MOUSE AGAIN 5510 EXTENSION (Index #12) (Token 0x80) 5520 RETURN 5530 UNKNOWN OP: 0x3A 5540 REM PRE-MENU ROUTINE for during delays... 5550 IF 5560 EXTENSION (Index #16) (Token 0x84) 5570 GOSUB 5580 IF 5590 RETURN 560 DIM 5600 UNKNOWN OP: 0x3A 5610 REM UNDO 5620 GOSUB 5630 WINDOPEN 5640 UNKNOWN OP: 0x3A 5650 REM DEFAULT COLOUR RANGE 5660 VARNAME 5670 UNKNOWN OP: 0x3A 5680 REM CYCLE SPEED 5690 WINDOPEN 570 REM CALCULATE 60 ZONES FOR MENUSCREEN 5700 LIMIT MOUSE 5710 VARNAME 5720 IF 5730 IF 5740 IF 5750 IF 5760 VARNAME 5770 VARNAME 5780 WAIT 5790 UNKNOWN OP: 0x3A 580 VARNAME 5800 REM INC/DEC PALETTE 5810 DEC 5820 RETURN 5830 INC 5840 RETURN 5850 UNKNOWN OP: 0x3A 5860 REM VIEW 5870 HIDE 5880 OFF 5890 EXTENSION (Index #12) (Token 0x8a) 590 FOR 5900 IF 5910 IF 5920 VARNAME 5930 EXTENSION (Index #3) (Token 0x82) 5940 VARNAME 5950 IF 5960 IF 5970 IF 5980 IF 5990 IF 60 MODE 600 REM SUBTRACT 1 FROM BOTTOM RIGHT - (DON'T OVERLAP) 6000 WAIT 6010 UNKNOWN OP: 0x3A 6020 IF 6030 RETURN 6040 UNKNOWN OP: 0x3A 6050 REM MAIN SCREEN HANDLING 6060 EXTENSION (Index #3) (Token 0x92) 6070 REM DRAW SELECTED - COPY DRAWING SCREEN TO PHYSIC BEFORE DRAWING 6080 HIDE 6090 VARNAME 610 VARNAME 6100 IF 6110 REM IF NOTHING DRAWN OR SCREEN CLEARED DON'T COPY TO BACKUP (UNDO) 6120 IF 6130 REM UNDO NOT SELECTED SO COPY DRAWING SCREEN TO BACKUP SCREEN 6140 EXTENSION (Index #12) (Token 0x80) 6150 REM Above routine called before drawing. 6160 UNKNOWN OP: 0x3A 6170 REM DRAW DONE SO COPY TO WORK SCREEN STORAGE 6180 IF 6185 HIDE 6190 EXTENSION (Index #12) (Token 0x80) 620 INC 6200 VARNAME 6210 UNKNOWN OP: 0x3A 6220 REM MOIRE PATTERNS 6230 GOSUB 6240 VARNAME 6250 UNKNOWN OP: 0x3A 6260 VARNAME 6270 FOR 6280 POLYLINE 6290 NEXT 630 NEXT 6300 FOR 6310 POLYLINE 6320 GOSUB 6330 UNKNOWN OP: 0x3A 6340 VARNAME 6350 IF 6360 VARNAME 6370 GOSUB 6380 UNKNOWN OP: 0x3A 6390 REM CHOOSE PALETTE 640 UNKNOWN OP: 0x3A 6400 CLS 6410 LOGIC 6420 IF 6430 LOCATE 6440 GOSUB 6450 FOR 6460 VARNAME 6470 LOCATE 6480 BOX 6490 NEXT 650 REM *** STEREO SOUNDS *** (Not loaded yet - defining start/end points) 6500 FOR 6510 BOX 6520 NEXT 6530 UNKNOWN OP: 0x3A 6540 EXTENSION (Index #12) (Token 0x80) 6550 LIMIT MOUSE 6560 IF 6570 EXTENSION (Index #3) (Token 0x82) 6580 VARNAME 6590 IF 660 IF 6600 IF 6610 IF 6620 IF 6630 IF 6640 GOTO 6650 UNKNOWN OP: 0x3A 6660 EXTENSION (Index #17) (Token 0x8c) 6670 UNKNOWN OP: 0x3A 6680 REM ***** MAIN PALETTE ROUTINE ***** 6690 IF 670 VARNAME 6700 IF 6710 VARNAME 6720 FADE 6730 WAIT 6740 UNKNOWN OP: 0x3A 6750 IF 6760 IF 6770 VARNAME 6780 SHIFT 6790 UNKNOWN OP: 0x3A 680 REM PUT DATA IN AN ARRAY SO INDIVIDUAL SOUNDS CAN BE CALLED 6800 REM PALETTES 6810 REM 1 BLUE 6820 DATA 6830 UNKNOWN OP: 0x3A 6840 REM 2 SILVER / GOLD I/L 6850 DATA 6860 UNKNOWN OP: 0x3A 6870 REM 3 MAGENTA / CYAN REV I/L 6880 DATA 6890 UNKNOWN OP: 0x3A 690 DIM 6900 REM 4 RED / MAGENTA I/L 6910 DATA 6920 UNKNOWN OP: 0x3A 6930 REM 5 RED / BLUE I/L 6940 DATA 6950 UNKNOWN OP: 0x3A 6960 REM 6 RED / CYAN REV I/L 6970 DATA 6980 UNKNOWN OP: 0x3A 6990 REM 7 GREEN / CYAN I/L 70 IF 700 FOR 7000 DATA 7010 UNKNOWN OP: 0x3A 7020 REM 8 CHANGED 7030 DATA 7040 UNKNOWN OP: 0x3A 7050 REM 9 CHANGED 7060 DATA 7070 UNKNOWN OP: 0x3A 7080 REM 10 RED / YELLOW 7090 DATA 710 READ 7100 UNKNOWN OP: 0x3A 7110 REM 11 RED / BLACK 7120 DATA 7130 UNKNOWN OP: 0x3A 7140 REM 12 BLACK / CYAN (1 to 8=0) 7150 DATA 7160 UNKNOWN OP: 0x3A 7170 REM 13 SILVER / GOLD 7180 DATA 7190 UNKNOWN OP: 0x3A 720 NEXT 7200 REM 14 7210 DATA 7220 UNKNOWN OP: 0x3A 7230 REM 15 CYAN / SILVER I/L 7240 DATA 7250 UNKNOWN OP: 0x3A 7260 REM 16 CRACKART TAN 7270 DATA 7280 UNKNOWN OP: 0x3A 7290 REM 17 VIDI BROWN / GREY I/L 730 UNKNOWN OP: 0x3A 7300 DATA 7310 UNKNOWN OP: 0x3A 7320 REM 18 CRACKART METAL 7330 DATA 7340 UNKNOWN OP: 0x3A 7350 REM 19 CRACKART PINK / YELLOW 7360 DATA 7370 UNKNOWN OP: 0x3A 7380 REM 20 CHANGED 7390 DATA 740 DATA 7400 UNKNOWN OP: 0x3A 7410 REM 21 CHANGED 7420 DATA 7430 UNKNOWN OP: 0x3A 7440 REM 22 7450 DATA 7460 UNKNOWN OP: 0x3A 7470 REM 23 7480 DATA 7490 UNKNOWN OP: 0x3A 750 DATA 7500 REM 24 VIDI RED 7510 DATA 7520 UNKNOWN OP: 0x3A 7530 REM 25 GREEN / BLUE I/L 7540 DATA 7550 UNKNOWN OP: 0x3A 7560 REM 26 PINK YELLOW I/L 7570 DATA 7580 UNKNOWN OP: 0x3A 7590 REM 27 GOLD / RED 760 UNKNOWN OP: 0x3A 7600 DATA 7610 UNKNOWN OP: 0x3A 7620 REM 28 MAGENTA / SKY BLUE I/L 7630 DATA 7640 UNKNOWN OP: 0x3A 7650 REM SAVE SCREEN 7660 REM RESUMES HERE FROM ERROR TRAP (FAILED SAVE) 7670 VARNAME 7680 IF 7690 IF 770 VARNAME 7700 IF 7710 SHOW 7720 LOCATE 7730 SET ZONE 7740 IF 7750 IF 7760 GOTO 7770 CURS 7780 CURS 7790 FLASH 780 GOSUB 7800 IF 7810 CLS 7820 HIDE 7830 UNKNOWN OP: 0x3A 7840 REM UNREGISTERED RESTRICTION 7850 IF 7860 IF 7870 UNKNOWN OP: 0x3A 7880 WINDOPEN 7890 REM mouseon : if mouse key then 7990 790 UNKNOWN OP: 0x3A 7900 VARNAME 7910 VARNAME 7920 PRINT 7930 PRINT 7940 PRINT 7950 PRINT 7960 PRINT 7970 PEN 7980 PRINT 7990 PRINT 80 HIDE 800 VARNAME 8000 PRINT 8010 PRINT 8020 VARNAME 8030 IF 8040 GOTO 8050 UNKNOWN OP: 0x3A 8060 VARNAME 8070 SAVE 8080 MENU$ 8090 MENU 810 UNKNOWN OP: 0x3A 8100 EXTENSION (Index #17) (Token 0x82) 8110 EXTENSION (Index #3) (Token 0x88) 8120 SHOW 8130 REM *** MENU LOOP *** 8140 VARNAME 8150 IF 8160 IF 8170 GOTO 8180 UNKNOWN OP: 0x3A 8190 REM ROTATE PALETTES 820 IF 8200 IF 8210 INK 8220 AUTO BACK 8230 IF 8240 UNKNOWN OP: 0x3A 8250 REM LOOP STARTS NEXT LINE 8260 TIMER 8270 GOSUB 8280 VARNAME 8290 IF 830 VARNAME 8300 GOTO 8310 UNKNOWN OP: 0x3A 8320 REM BOXES 8330 VARNAME 8340 VARNAME 8350 VARNAME 8360 BOX 8370 VARNAME 8380 IF 8390 VARNAME 840 CLEAR KEY 8400 IF 8410 GOSUB 8420 GOTO 8430 UNKNOWN OP: 0x3A 8440 REM SELECT LINE TYPE and WRITING MODE 8450 GOSUB 8460 MENU$ 8470 MENU$ 8480 MENU$ 8490 MENU$ 850 UNKNOWN OP: 0x3A 8500 MENU$ 8510 MENU$ 8520 MENU$ 8530 MENU$ 8540 MENU$ 8550 MENU$ 8560 MENU 8570 EXTENSION (Index #3) (Token 0x88) 8580 LOCATE 8590 PRINT 860 REM 1 is SPRITES 8600 PRINT 8610 PRINT 8620 PRINT 8630 PRINT 8640 PRINT 8650 PRINT 8660 LOCATE 8670 PRINT 8680 PRINT 8690 PRINT 870 REM 2 is ICONS 8700 PRINT 8710 INVERSE 8720 VARNAME 8730 IF 8740 IF 8750 IF 8760 IF 8770 GOTO 8780 UNKNOWN OP: 0x3A 8790 REM HELP 880 REM 3 is 16*16 FONT 8800 HIDE 8810 INK 8820 CENTRE 8830 PRINT 8840 PRINT 8850 PRINT 8860 PRINT 8870 PRINT 8880 PRINT 8890 PRINT 890 REM 4 is for STORING WORK SCREEN AND BACKUP (UNDO) SCREEN 8900 PRINT 8910 PRINT 8920 PRINT 8930 PRINT 8940 PRINT 8950 UNKNOWN OP: 0x3A 8960 GOSUB 8970 UNKNOWN OP: 0x3A 8980 REM INVOKE LINE TYPE 8990 GR WRITING 90 VARNAME 900 REM START(4) is for the UNDO screen 9000 SET LINE 9010 SET LINE 9020 SET LINE 9030 SET LINE 9040 SET LINE 9050 SET LINE 9060 SET LINE 9070 UNKNOWN OP: 0x3A 9080 REM TEST FOR SKIP (STOP DRAWING) *** TEST FOR SLOMO 9090 VARNAME 910 REM START(4)+32000 is for STORAGE of CURRENT DRAWING SCREEN 9100 VARNAME 9110 IF 9120 IF 9130 VARNAME 9140 IF 9150 IF 9160 IF 9170 IF 9180 RETURN 9190 UNKNOWN OP: 0x3A 920 REM 5 contains 16 MONO SAMPLES FOR STOS MAESTRO 9200 IF 9210 EXTENSION (Index #3) (Token 0x82) 9220 UNKNOWN OP: 0x3A 9230 REM RAYS 9240 GOSUB 9250 FOR 9260 IF 9270 VARNAME 9280 POLYLINE 9290 NEXT 930 REM *** 1 CYMBAL, 2 MMNNH, 3 BZONG, 4 PRING, 5 CLUNK, 6 CUCKOO, 7 DRUM, *** 8 FLEAS, 9 RIMSKY, 10 SYNVOICE, 11 WHINGYAH, 12 BUMP, 13 MIAOW, *** 14 TWEET_16, 15 WEE, 16 WHING 9300 FOR 9310 VARNAME 9320 POLYLINE 9330 NEXT 9340 RETURN 9350 UNKNOWN OP: 0x3A 9360 REM CIRCLES 9370 GOSUB 9380 FOR 9390 VARNAME 940 REM 6 IS NEW KOZMIC 4 MENUSCREEN (PACKED) 9400 ARC 9410 ARC 9420 GOSUB 9430 NEXT 9440 RETURN 9450 UNKNOWN OP: 0x3A 9460 REM DIAMONDS 9470 GOSUB 9480 VARNAME 9490 IF 950 REM 7 IS UNPACKED MENU SCREEN ## also SLIDESHOW ## 9500 VARNAME 9510 IF 9520 VARNAME 9530 IF 9540 IF 9550 IF 9560 VARNAME 9570 POLYLINE 9580 GOSUB 9590 GOTO 960 REM 8 contains STEREO SAMPLES PACKED WITH PACK-ICE. 9600 UNKNOWN OP: 0x3A 9610 REM STARS 9620 IF 9630 IF 9640 VARNAME 9650 VARNAME 9660 VARNAME 9670 VARNAME 9680 VARNAME 9690 VARNAME 970 REM 9 IS EMPTY! 9700 VARNAME 9710 UNKNOWN OP: 0x3A 9720 REM CHANGE COLOUR / CHECK KEYS & BUTTONS 9730 GOSUB 9740 IF 9750 IF 9760 REM ADD INCREMENTS / DECREMENTS 9770 ON 9780 UNKNOWN OP: 0x3A 9790 REM CHECK LIMITS / REVERSE SIGN AS REQUIRED 980 REM 10,11,12,13,14 are BITPLANE SCREEN PATTERNS TO OVERLAY 9800 IF 9810 IF 9820 IF 9830 IF 9840 IF 9850 IF 9860 IF 9870 IF 9880 UNKNOWN OP: 0x3A 9890 VARNAME 990 REM 15 is for MENUS 9900 POLYLINE 9910 GOTO 9920 UNKNOWN OP: 0x3A 9930 VARNAME 9940 IF 9950 IF 9960 RETURN 9970 UNKNOWN OP: 0x3A 9980 IF 9990 IF